function [red estado] = kohonen(datos_entrenamiento,datos_testeo,M,eta,sufix)
	red = som_lininit(datos_entrenamiento,'rect','sheet','msize',[M 1]);
	[red estado] = som_seqtrain(red,datos_entrenamiento,'trainlen',50,'alpha_ini',eta,'tracking',3);
	axis auto
	saveas(gcf,strcat('resultados/resultado_del_entrenamiento',sufix),'png');
	hist(som_bmus(red,datos_testeo),M);
	axis([0 1000 0 5])
	% histograma de activacion
	saveas(gcf,strcat('resultados/resultado_del_testeo',sufix),'png');
end
